VERSION = 3.00!Arial, 0, 9, 5, 15, 12, 32, 3, 0  chighlightPixelsClass1form chighlightHnwidth nheight *highlight Highlights a specific region on the screen  T%P qUmC Cx TC C U SETWINDOWLONGTHISFORMHWNDSETLAYEREDWINDOWATTRIBUTESHREGION CREATERECTRGNTHISNWIDTHNHEIGHT SETWINDOWRGN%| CreateRectRgngdi32#| SetWindowRgnuser32%| SetWindowLongWin32Api4|SetLayeredWindowAttributesWin32Api#| GetWindowLongWin32ApiU CREATERECTRGNGDI32 SETWINDOWRGNUSER32 SETWINDOWLONGWIN32APISETLAYEREDWINDOWATTRIBUTES GETWINDOWLONG highlight,Init1q2R1QA11(C )PROCEDURE highlight SetWindowLong(ThisForm.HWnd, -20, 0x00080000) SetLayeredWindowAttributes(ThisForm.HWnd, 0, 120, 2) *-- Create a region so that we can ditch the titlebar with SetWindowRgn hRegion = CreateRectRgn(10, 20, This.nWidth, This.nHeight) SetWindowRgn(ThisForm.hWnd, hRegion, 1) ENDPROC PROCEDURE Init *-- Declares that we'll need later DECLARE integer CreateRectRgn in gdi32 integer x1 , integer y1 , integer x2 , integer y2 DECLARE integer SetWindowRgn in user32 integer hwnd, integer hRegion , integer bRedraw DECLARE SetWindowLong In Win32Api Integer, Integer, Integer DECLARE SetLayeredWindowAttributes In Win32Api Integer, String, Integer, Integer DECLARE GetWindowLong In Win32Api Integer, Integer ENDPROC form!Arial, 0, 9, 5, 15, 12, 32, 3, 0 cborderPixelsClass1formcborderformcustom chighlightercustomClassPixels chighlighter1Wntop = 0 nleft = 0 nwidth = 0 nheight = 0 nborderwidth = 3 Name = "chighlighter" ntop nleft nwidth nheight nborderwidth oleft otop obottom oright *highlight Specifies if the cell with the focus in the Grid control appears selected. Top = 0 Left = 0 Height = 103 Width = 247 ShowWindow = 2 DoCreate = .T. BorderStyle = 0 Caption = "Form2" Visible = .F. TitleBar = 0 AlwaysOnTop = .T. BackColor = 255,255,128 ShowInTaskBar = .F. nwidth = 50 nheight = 50 Name = "chighlight"  %^;U.TCCN 6 Ta%CO T-*TCcBorder highlight.vcx*TCcBorder highlight.vcx*TCcBorder highlight.vcx*TCcBorder highlight.vcxfT -T -T -T -T  T  TTT  T TT|T  T  TTT   T TT% TTTTTTTTT aT aT aT a TC+C  UNTIMEOUT LNTIMEOUTLNSECS LWASVISIBLETHISOLEFTOTOPORIGHTOBOTTOMVISIBLETOPNTOPHEIGHTNHEIGHTLEFTNLEFTWIDTH NBORDERWIDTHNWIDTHTITLEBAR highlight,1qAAAAA11111111AqA2)PROCEDURE highlight LPARAMETERS nTimeout LOCAL lnTimeout,lnSecs,lWasVisible lnTimeout = IIF(VARTYPE(nTimeout)#"N" OR nTimeout<0,1,nTimeout) lWasVisible=.T. IF VARTYPE(THIS.oLeft)#"O" lWasVisible = .F. THIS.oLeft = NEWOBJECT("cBorder","highlight.vcx") THIS.oTop = NEWOBJECT("cBorder","highlight.vcx") THIS.oRight = NEWOBJECT("cBorder","highlight.vcx") THIS.oBottom = NEWOBJECT("cBorder","highlight.vcx") ELSE THIS.oLeft.Visible = .F. THIS.oTop.Visible = .F. THIS.oRight.Visible = .F. THIS.oBottom.Visible = .F. ENDIF WITH THIS.oLeft .Top = This.ntop .Height = This.nHeight .Left = This.nLeft .Width = This.nborderwidth ENDWITH WITH THIS.oTop .Top = This.ntop .Height = This.nborderwidth .Left = This.nLeft .Width = This.nwidth ENDWITH WITH THIS.oRight .Top = This.nTop .Height = This.nHeight .Left = This.nleft + This.nwidth - This.nborderwidth .Width = This.nborderwidth ENDWITH WITH THIS.oBottom .Top = This.ntop + This.nheight - This.nborderwidth .Height = This.nborderwidth .Left = This.nleft .Width = This.nwidth ENDWITH IF !lWasVisible THIS.oLeft.TitleBar = 1 THIS.oLeft.TitleBar = 0 THIS.oTop.TitleBar = 1 THIS.oTop.TitleBar = 0 THIS.oRight.TitleBar = 1 THIS.oRight.TitleBar = 0 THIS.oBottom.TitleBar = 1 THIS.oBottom.TitleBar = 0 ENDIF THIS.oLeft.Visible = .t. THIS.oTop.Visible = .t. THIS.oRight.Visible = .t. THIS.oBottom.Visible = .t. lnSecs = SECONDS() DO WHILE SECONDS()-m.lnSecs < nTimeout ENDDO ENDPROC Top = 0 Left = 0 Height = 72 Width = 336 ShowWindow = 2 ShowInTaskBar = .F. DoCreate = .T. BorderStyle = 0 Caption = "frmHilite" Visible = .F. TitleBar = 0 AlwaysOnTop = .T. BackColor = 255,255,128 Name = "cborder"